From: Kenichi Handa <handa@m17n.org>
Date: Fri, 11 Jun 2004 06:03:16 +0000 (+0000)
Subject: Temporarily set utf-translate-cjk-mode to nil.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22045
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=73ec5f7a7ae5dce57910c16b658c6ad0ee743b0f;p=emacs.git

Temporarily set utf-translate-cjk-mode to nil.
---

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 809c457c6e1..c33bd2eb43f 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -33,6 +33,11 @@
 
 ;;; Code:
 
+;; We must set utf-translate-cjk-mode to nil while loading this file
+;; to avoid translating CJK characters in decode-char.
+(defvar saved-utf-translate-cjk-mode utf-translate-cjk-mode)
+(setq utf-translate-cjk-mode nil)
+
 ;;; Predefined categories.
 
 ;; For each character set.
@@ -1277,6 +1282,10 @@
     (put-charset-property (car l) 'nospace-between-words t)
     (setq l (cdr l))))
 
+
+(setq utf-translate-cjk-mode saved-utf-translate-cjk-mode)
+(makunbound 'saved-utf-translate-cjk-mode)
+
 ;;; Local Variables:
 ;;; coding: iso-2022-7bit
 ;;; End: